local tela
tela = savescreen(0,0,24,80)
declare cabeca[1], estrutura[8]
if .not. file('c:\video.dbf')
   ! copy video.dbf c:\
endif
sele 0
use c:\video
appe from c:\video.prn sdf
go top
cabeca[1]  = 'Visualizao de Impressao                                 P -> Impressora' ; estrutura[1] = fiel(1)
dbedit(0,0,24,80,estrutura,'video100','@!',cabeca,.T.)
zap
close video
! del c:\video.prn
restscreen(0,0,24,80,tela)


function video100(modo,coluna)
set cursor on

tecla = lastkey()
do case
   case tecla = 5 .and. modo = 1

        mensa(10,' Inicio do arquivo ',2)
        retu(2)

   case tecla = 24 .and. modo = 2

        mensa(10,'Final do arquivo',2)
        retu(2)

   case tecla = 27

        retu(0)
                              
   case tecla = 80 .or. tecla = 112
   
     if .not. impressora()
        retu(2)
     endif
     ! type c:\video.prn > prn
     retu(1)

   otherwise

      retu(1)

endcase
